home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MegaSort Stack.cpt / MegaSort Stack / card_3432.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  103 lines
  1. -- card: 3432 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2571
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=339 top=53 right=75 bottom=458
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Sort
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   Put AnswerALot("What is the starting character?",5,4,3,2,1) into start
  23.   Put AnswerALot("What is the ending character?",start + 4,Start + 3, start + 2,start + 1,start) into stop
  24.   Put "megaSort(fld unsorted,tab,return," & quote & "t=i,c=char " & start & " to " & stop & quote & ") into fld sorted" into fld command
  25.   put megaSort(fld unsorted,",",return, "t=i,c=char " & start &" to " & stop) into fld sorted
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part 2 (field)
  31. -- low flags: 01
  32. -- high flags: 0001
  33. -- rect: left=310 top=109 right=198 bottom=502
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 256
  40. -- line height: 16
  41. -- part name: 
  42.  
  43.  
  44. -- part 4 (button)
  45. -- low flags: 00
  46. -- high flags: 8003
  47. -- rect: left=420 top=258 right=318 bottom=507
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 1020 / 1020
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Notes on Chunking
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   push card
  59.   visual effect dissolve
  60.   go to card id 8652
  61. end mouseUp
  62.  
  63.  
  64.  
  65.  
  66. -- part contents for background part 4
  67. ----- text -----
  68. qhishdjd
  69. mccjjscn
  70. lxskcncn
  71. cscnaj
  72. s jkdsasf
  73. asdfjvi
  74. asdvfko
  75. Oekflsd
  76. v0vkww
  77. a0vkv0s
  78. oifngw[p
  79. vovjavw
  80.  
  81. -- part contents for background part 5
  82. ----- text -----
  83. mccjjscn
  84. cscnaj
  85. asdfjvi
  86. asdvfko
  87. oifngw[p
  88. qhishdjd
  89. s jkdsasf
  90. Oekflsd
  91. lxskcncn
  92. vovjavw
  93. a0vkv0s
  94. v0vkww
  95.  
  96.  
  97. -- part contents for card part 2
  98. ----- text -----
  99. Clicking on the above button will show you how megaSort can sort on a chunk of a field.
  100.  
  101. -- part contents for background part 6
  102. ----- text -----
  103. megaSort(fld unsorted,tab,return,"t=i,c=char 3 to 5") into fld sorted